home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / ca29_3.zip / TYMNET.CMD < prev    next >
OS/2 REXX Batch file  |  1992-10-23  |  2KB  |  43 lines
  1. S0 = 9                ; Dialing directory number we'll use
  2. ; ----- TYMNET: Connect to TYMNET
  3. ; ----------------------------------------------------------------
  4. ;    Note: This script may be used by itself (to put you at Tymnet's
  5. ;    "log in:" prompt, or may be FCALLed by another script.  This
  6. ;    script is written to be FCALLed, executed directly (F2) or
  7. ;    attached to a dialing directory entry (for manual execution).
  8. ; ----------------------------------------------------------------
  9. ;    Note: Change the value above to reflect the dialing directory
  10. ;    entry number you have prepared.  The default is "9".
  11. ; ----------------------------------------------------------------
  12. ;    S0 is modified by this script.
  13. ; ----------------------------------------------------------------
  14. ;
  15. ;    Make connection to TYMNET.  The dialing directory (or current
  16. ;    .. setting) define parity and speed.
  17. ;
  18.     LEGEND " Dialing TYMNET... "
  19.     IF NOT LINKED        ; If script not invoked from Alt-D
  20.        DIAL S0        ; Call dial dir entry number 9 (TYMNET)
  21.        IF FAILED EXIT    ; IF esc out, terminate script
  22.        ENDIF        ; End if not linked
  23. ;
  24. ;    Make connection and let TYMNET sync with our parity/speed
  25. ;
  26.     WAITFOR "^M"            ; Wait for modem to clear
  27.     RGET S0 1        ; Wait for any char (60 sec default)
  28.     TRANSMIT "a"            ; Transmit char for synchronization
  29.     WAITFOR "log in:"       ; Wait for prompt
  30. ;
  31. ;    Set a few parms
  32. ;
  33.     SET MASK ON        ; Turn on high bit mask
  34.     SET CDISPLAY ON     ; Display ctl chars
  35. ;
  36. ;    Exit - this script may be called
  37. ;
  38.     IF FCALLED FRETURN    ; Return to caller if called
  39. ;
  40. ;    And we're done
  41. ;
  42.     ALARM            ; Sound alarm - we're done
  43.